home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 89 / 089.d81 / missing 89 (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  190 lines
  1. 1 poke55,0:poke56,128:clr
  2. 2 poke53281,0:poke53280,0:printchr$(147)chr$(14)chr$(8);
  3. 5 poke53272,29
  4. 6 dim m$(9),r$(4):f=0:ff=0:s=54272:gosub9900:l$="- - - - - -"
  5. 7 sp$="          "
  6. 10 fori=1to7:readm$(i):next
  7. 11 data "[208]rint [208]uzzle (1525)   "
  8. 12 data "[208]rint [208]uzzle (other)  "
  9. 13 data "[208]rint [211]olution (1525) "
  10. 14 data "[208]rint [211]olution (other)"
  11. 15 data "[210]ead [201]t               "
  12. 16 data "[195]redits               "
  13. 17 data "[204]oadstar              "
  14. 20 tp$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  15. 22 md$="[221][155]                                      [146][221]"
  16. 23 ln$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  17. 24 bt$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  18. 25 goto30
  19. 26 print"[147]"tp$;
  20. 27 fori=1to23:printmd$;:next:printbt$:poke2023,125:poke56295,1
  21. 28 fori=217to242:pokei,peek(i)or128:next:return
  22. 30 gosub26
  23. 32 print"[221][156]            [205]issing [205]iddles           [146][221]";
  24. 34 println$;
  25. 60 poke214,21:print
  26. 65 println$;
  27. 70 print"[221][154]   [213]se cursor keys/[210][197][212][213][210][206] to select   [146][221]";
  28. 80 gosub28
  29. 100 print"";
  30. 102 printtab(7)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  31. 104 qq$="[221]                        [221]"
  32. 105 fori=1to9:print""qq$:next
  33. 106 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  34. 107 poke214,5:print
  35. 109 fori=1to7:printtab(9)""m$(i):next
  36. 145 sys52496,6
  37. 146 poke198,0
  38. 150 r=5:m=1:poke214,r:print:printtab(9)"[154]"m$(m):m1=m:r1=r
  39. 155 getk$:ifk$=""then155
  40. 160 ifk$=chr$(13)thengosub9930:goto200
  41. 165 ifk$="[145]"thenm=m-1:r=r-1:ifm<1thenm=7:r=11
  42. 170 ifk$=""thenm=m+1:r=r+1:ifm>7thenm=1:r=5
  43. 175 ifm<>m1thenpoke214,r1:print:printtab(9)""m$(m1):gosub9910
  44. 180 poke214,r:print:printtab(9)"[154]"m$(m)
  45. 182 m1=m:r1=r
  46. 185 goto155
  47. 190 :
  48. 200 onmgoto1000,1000,2000,2000,12000,500,11000
  49. 205 goto150
  50. 500 sys52496,7
  51. 525 poke214,15:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  52. 527 printtab(7)"[221]  [208]uzzle [194]y [194]. [211]chulak  [221]"
  53. 535 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  54. 544 t=1
  55. 545 getk$:ifk$<>""then550
  56. 546 t=t+1:ift<100then545
  57. 550 sys52499,7:gosub28:goto155
  58. 555 :
  59. 1000 gosub9000:ifppthen155
  60. 1005 gosub6000
  61. 1010 ifm=1thenl$=" [164] [164] [164] "
  62. 1015 ifm=2thenl$=" - - - "
  63. 1020 open4,4
  64. 1025 print#4,sp$;"and are car cut ere gin has haw ire lam"
  65. 1030 print#4
  66. 1035 print#4,sp$;"nap ore par per pie pin rap row she the"
  67. 1040 print#4:print#4:print#4
  68. 1045 print#4,sp$;"c";l$;"y"
  69. 1047 print#4
  70. 1050 print#4,sp$;"s";l$;"f"
  71. 1052 print#4
  72. 1055 print#4,sp$;"o";l$;"e"
  73. 1057 print#4
  74. 1060 print#4,sp$;"s";l$;"d"
  75. 1062 print#4
  76. 1065 print#4,sp$;"o";l$;"a"
  77. 1067 print#4
  78. 1070 print#4,sp$;"c";l$;"p"
  79. 1072 print#4
  80. 1075 print#4,sp$;"o";l$;"r"
  81. 1077 print#4
  82. 1080 print#4,sp$;"c";l$;"m"
  83. 1082 print#4
  84. 1085 print#4,sp$;"i";l$;"t"
  85. 1087 print#4
  86. 1090 print#4,sp$;"a";l$;"g"
  87. 1092 print#4
  88. 1095 print#4,sp$;"s";l$;"l"
  89. 1097 print#4
  90. 1100 print#4,sp$;"m";l$;"l"
  91. 1102 print#4
  92. 1105 print#4,sp$;"c";l$;"t"
  93. 1107 print#4
  94. 1110 print#4,sp$;"s";l$;"n"
  95. 1112 print#4
  96. 1115 print#4,sp$;"a";l$;"n"
  97. 1117 print#4
  98. 1120 print#4,sp$;"b";l$;"t"
  99. 1122 print#4
  100. 1125 print#4,sp$;"g";l$;"h"
  101. 1127 print#4
  102. 1130 print#4,sp$;"g";l$;"n"
  103. 1132 print#4
  104. 1135 print#4,sp$;"a";l$;"e"
  105. 1137 print#4
  106. 1140 print#4,sp$;"a";l$;"t"
  107. 1145 print#4:close4:goto155
  108. 2000 gosub9000:ifppthen155
  109. 2005 gosub6000
  110. 2007 open4,4
  111. 2010 print#4,sp$;"candy"
  112. 2015 print#4,sp$;"scarf"
  113. 2020 print#4,sp$;"opine"
  114. 2025 print#4,sp$;"spied"
  115. 2030 print#4,sp$;"opera"
  116. 2035 print#4,sp$;"clamp"
  117. 2040 print#4,sp$;"other"
  118. 2045 print#4,sp$;"chasm"
  119. 2050 print#4,sp$;"inapt"
  120. 2055 print#4,sp$;"aging"
  121. 2060 print#4,sp$;"shawl"
  122. 2065 print#4,sp$;"morel"
  123. 2070 print#4,sp$;"caret"
  124. 2072 print#4,sp$;"siren"
  125. 2074 print#4,sp$;"ashen"
  126. 2076 print#4,sp$;"beret"
  127. 2078 print#4,sp$;"graph"
  128. 2080 print#4,sp$;"grown"
  129. 2082 print#4,sp$;"acute"
  130. 2084 print#4,sp$;"apart"
  131. 2085 :
  132. 2092 print#4:close4:goto155
  133. 6000 open4,4
  134. 6005 print#4, "          #89 - missing middles"
  135. 6006 print#4
  136. 6010 print#4:close4:return
  137. 9000 sys52496,7:pp=1
  138. 9005 poke214,15:print:printtab(7)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  139. 9010 printtab(7)"[221]  [208]rinter [210]eady? [y/n]  [221]"
  140. 9025 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  141. 9035 getk$:ifk$=""then9035
  142. 9036 ifk$="y"thenpp=0
  143. 9040 sys52499,7:gosub28:return
  144. 9045 :
  145. 9800 poke214,21:print:println$;
  146. 9805 print"[221][154]             [208]ress [210][197][212][213][210][206]             [146][221]";
  147. 9810 getk$:ifk$<>chr$(13)then9810
  148. 9815 return
  149. 9820 :
  150. 9900 fori=0to24:pokes+i,.:next:return
  151. 9910 pokes+24,15:pokes+5,9:pokes+6,0
  152. 9915 pokes+1,19:pokes,63:pokes+4,17
  153. 9920 fort=1to50:next:pokes+4,16:return
  154. 9930 pokes+24,15:pokes+5,9:pokes+6,0
  155. 9935 pokes+1,48:pokes,0:pokes+4,17
  156. 9940 fort=1to50:next:pokes+4,16:return
  157. 10000 open15,8,15,"s0:missing 89":close15:save"0:missing 89",8:end
  158. 11000 poke214,15:print
  159. 11005 printtab(7)"[150][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  160. 11015 printtab(7)"[221]  [193]re you sure?  [y/n]  [221]"
  161. 11025 printtab(7)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  162. 11030 getk$:ifk$=""then11030
  163. 11035 ifk$<>"y"thensys52499,6:goto150
  164. 11037 print"[147]":poke53272,23
  165. 11040 open15,8,15,"r0:hello connect=hello connect":input#15,er%:close15
  166. 11050 ifer%<>63thenprint"[147]":poke43,1:poke44,8:poke2048,0:end
  167. 11055 poke646,peek(53281):print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  168. 11060 print"run"
  169. 11061 poke43,1:poke44,8:poke2048,0
  170. 11065 poke631,13:poke632,13:poke633,13:poke198,3:end
  171. 12000 sys52496,7
  172. 12001 gosub26
  173. 12005 print"[221][156]            [205]issing [205]iddles           [146][221]";
  174. 12010 println$;
  175. 12015 print"[155]    [213]se the three letter words found
  176. 12020 [153]"list at the top of the page to complete
  177. 12025 print"[155] the five letter words.  [198]or example,
  178. 12030 [153]"list to solve (NULL)---(NULL), enter (NULL)str$val.  valach
  179. 12035 print"[155] word will be used only one time.
  180. 12045 [153]"list    right$f you have a printer/interface
  181. 12050 print"[155] combination that emulates the
  182. 12055 [153]"list len1525 printer, choose the 1525 print
  183. 12060 print"[155] modes to print the puzzle and
  184. 12065 [153]"list solution.  right$f your printer does
  185. 12070 print"[155] not support [195]ommodore graphic
  186. 12075 [153]"list characters or printer commands,
  187. 12080 print"[155] select [207][212][200][197][210].
  188. 12100 [141]9800
  189. 12105 [158]52499,7:[141]28:[137]155
  190.